home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / Handy Mail 1.0b4 folder.sit / Handy Mail 1.0b4 folder / Handy Mail v1.0b2 Installer / Handy Mail v1.0b2 ƒ / Resources / Sequence Setup / background_2786.txt < prev    next >
Text File  |  1995-12-22  |  9KB  |  413 lines
  1. -- background: 2786 from stack: in
  2. -- bmap block id: 3810
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on dragOn objName
  8.   set name of bg btn id 1 to objName
  9.  
  10.   put rect of bg fld "runSQ" into sqFldRec
  11.   put height of bg btn id 1 into btnTall
  12.   put width of bg btn id 1 into btnWidth
  13.   put btnTall div 2 into btnTallC
  14.   put btnWidth div 4 into btnWidthC
  15.  
  16.   put textHeight of bg fld "runSQ" into sqTextH
  17.   put top of bg fld "runSQ" - sqTextH into sqTop
  18.   put scroll of bg fld "runSQ" into sqScroll
  19.  
  20.   put false into inFld
  21.   repeat
  22.     put item 1 of the mouseLoc into h
  23.     put item 2 of the mouseLoc into v
  24.  
  25.     set top of bg btn id 1 to (v-btnTallC)
  26.     set left of bg btn id 1 to (h-btnWidthC)
  27.     if the mouseLoc is within sqFldRec then
  28.       put ((v - sqTop) + sqScroll) div sqTextH into t
  29.       select line t of bg fld "runSQ"
  30.       put true into inFld
  31.     else
  32.       put false into inFld
  33.     end if
  34.     if the mouse is up then exit repeat
  35.     show bg btn id 1
  36.   end repeat
  37.  
  38.   if inFld = true then
  39.     put bg fld "runSQ" into cache
  40.     put objName & return & (line t of cache) into line t of cache
  41.     repeat with k = number of lines of cache down to 1
  42.       get line k of cache
  43.       if it = "" then delete line k of cache
  44.     end repeat
  45.     put cache into bg fld "runSQ"
  46.   end if
  47.   -- select line t of bg fld "runSQ"
  48.   hide bg btn id 1
  49.   return t
  50. end dragOn
  51.  
  52.  
  53.  
  54. -- part 2 (button)
  55. -- low flags: 00
  56. -- high flags: A002
  57. -- rect: left=278 top=36 right=50 bottom=392
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 9
  63. -- style flags: 0
  64. -- line height: 12
  65. -- part name: Listserver
  66. ----- HyperTalk script -----
  67. on mouseDown
  68.   dragOn short name of me
  69. end mouseDown
  70.  
  71.  
  72. -- part 3 (field)
  73. -- low flags: 2D
  74. -- high flags: 8007
  75. -- rect: left=38 top=23 right=242 bottom=209
  76. -- title width / last selected line: 1
  77. -- icon id / first selected line: 1 / 1
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 9
  81. -- style flags: 0
  82. -- line height: 12
  83. -- part name: runSQ
  84. ----- HyperTalk script -----
  85. on mouseDown
  86.   wait 10
  87.   if the mouse is up then exit mouseDown
  88.   put word 2 of the clickLine into selLine
  89.   put line selLine of bg fld id 3 into t
  90.   delete line selLine of bg fld id 3
  91.  
  92.   dragOn t
  93. end mouseDown
  94.  
  95. on mouseUp
  96.   -- select line t of bg fld "runSQ"
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 4 (button)
  102. -- low flags: 00
  103. -- high flags: A002
  104. -- rect: left=278 top=72 right=86 bottom=392
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 3
  109. -- text size: 9
  110. -- style flags: 0
  111. -- line height: 12
  112. -- part name: List (All)
  113. ----- HyperTalk script -----
  114. on mouseDown
  115.   dragOn short name of me
  116. end mouseDown
  117.  
  118.  
  119. -- part 5 (button)
  120. -- low flags: 00
  121. -- high flags: A002
  122. -- rect: left=278 top=108 right=122 bottom=392
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 0
  126. -- font id: 3
  127. -- text size: 9
  128. -- style flags: 0
  129. -- line height: 12
  130. -- part name: UUCP Dial-up
  131. ----- HyperTalk script -----
  132. on mouseDown
  133.   dragOn short name of me
  134. end mouseDown
  135.  
  136.  
  137. -- part 6 (button)
  138. -- low flags: 00
  139. -- high flags: A002
  140. -- rect: left=278 top=144 right=158 bottom=392
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 3
  145. -- text size: 9
  146. -- style flags: 0
  147. -- line height: 12
  148. -- part name: FirstClass Gateway
  149. ----- HyperTalk script -----
  150. on mouseDown
  151.   dragOn short name of me
  152. end mouseDown
  153.  
  154.  
  155. -- part 7 (button)
  156. -- low flags: 00
  157. -- high flags: A002
  158. -- rect: left=278 top=216 right=230 bottom=392
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 3
  163. -- text size: 9
  164. -- style flags: 0
  165. -- line height: 12
  166. -- part name: Delay 30 seconds
  167. ----- HyperTalk script -----
  168. on mouseDown
  169.   dragOn short name of me
  170. end mouseDown
  171.  
  172.  
  173. -- part 8 (button)
  174. -- low flags: 00
  175. -- high flags: A002
  176. -- rect: left=278 top=180 right=194 bottom=392
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 3
  181. -- text size: 9
  182. -- style flags: 0
  183. -- line height: 12
  184. -- part name: Quit Handy Mail
  185. ----- HyperTalk script -----
  186. on mouseDown
  187.   dragOn short name of me
  188. end mouseDown
  189.  
  190.  
  191. -- part 10 (button)
  192. -- low flags: 00
  193. -- high flags: A008
  194. -- rect: left=122 top=247 right=264 bottom=200
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 3
  199. -- text size: 9
  200. -- style flags: 0
  201. -- line height: 12
  202. -- part name: Clear All
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   put return into bg fld "runSQ"
  206. end mouseUp
  207.  
  208.  
  209. -- part 11 (button)
  210. -- low flags: 00
  211. -- high flags: A008
  212. -- rect: left=38 top=247 right=264 bottom=119
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 3
  217. -- text size: 9
  218. -- style flags: 0
  219. -- line height: 12
  220. -- part name: Use Default
  221. ----- HyperTalk script -----
  222. FirstClass Gateway
  223. UUCP Dial-up
  224. Listserver
  225. List (All)
  226. FirstClass Gateway
  227.  
  228.  
  229. on mouseUp
  230.   put script of me into t
  231.   put "" into bg fld "runSQ"
  232.   repeat with k = 1 to number of lines of t
  233.     if line k of t = "" then
  234.       exit repeat
  235.     else
  236.       put line k of t & return after bg fld "runSQ"
  237.     end if
  238.   end repeat
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 13 (button)
  244. -- low flags: 00
  245. -- high flags: 2000
  246. -- rect: left=242 top=26 right=60 bottom=276
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 200 / 200
  249. -- text alignment: 0
  250. -- font id: 3
  251. -- text size: 9
  252. -- style flags: 0
  253. -- line height: 12
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseDown
  257.   dragOn short name of bg btn id 2
  258. end mouseDown
  259.  
  260.  
  261. -- part 14 (button)
  262. -- low flags: 00
  263. -- high flags: 2000
  264. -- rect: left=242 top=62 right=96 bottom=276
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 20001 / 20001
  267. -- text alignment: 0
  268. -- font id: 3
  269. -- text size: 9
  270. -- style flags: 0
  271. -- line height: 12
  272. -- part name: 
  273. ----- HyperTalk script -----
  274. on mouseDown
  275.   dragOn short name of bg btn id 4
  276. end mouseDown
  277.  
  278.  
  279. -- part 15 (button)
  280. -- low flags: 00
  281. -- high flags: 2000
  282. -- rect: left=242 top=98 right=132 bottom=276
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 7763 / 7763
  285. -- text alignment: 0
  286. -- font id: 3
  287. -- text size: 9
  288. -- style flags: 0
  289. -- line height: 12
  290. -- part name: 
  291. ----- HyperTalk script -----
  292. on mouseDown
  293.   dragOn short name of bg btn id 5
  294. end mouseDown
  295.  
  296.  
  297. -- part 16 (button)
  298. -- low flags: 00
  299. -- high flags: 2000
  300. -- rect: left=242 top=134 right=168 bottom=276
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 31519 / 31519
  303. -- text alignment: 0
  304. -- font id: 3
  305. -- text size: 9
  306. -- style flags: 0
  307. -- line height: 12
  308. -- part name: 
  309. ----- HyperTalk script -----
  310. on mouseDown
  311.   dragOn short name of bg btn id 6
  312. end mouseDown
  313.  
  314.  
  315. -- part 17 (button)
  316. -- low flags: 00
  317. -- high flags: 2000
  318. -- rect: left=242 top=170 right=204 bottom=276
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 20983 / 20983
  321. -- text alignment: 0
  322. -- font id: 3
  323. -- text size: 9
  324. -- style flags: 0
  325. -- line height: 12
  326. -- part name: 
  327. ----- HyperTalk script -----
  328. on mouseDown
  329.   dragOn short name of bg btn id 8
  330. end mouseDown
  331.  
  332.  
  333. -- part 18 (button)
  334. -- low flags: 00
  335. -- high flags: 2000
  336. -- rect: left=242 top=206 right=240 bottom=276
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 15135 / 15135
  339. -- text alignment: 0
  340. -- font id: 3
  341. -- text size: 9
  342. -- style flags: 0
  343. -- line height: 12
  344. -- part name: 
  345. ----- HyperTalk script -----
  346. on mouseDown
  347.   dragOn short name of bg btn id 7
  348. end mouseDown
  349.  
  350.  
  351. -- part 1 (button)
  352. -- low flags: 80
  353. -- high flags: A002
  354. -- rect: left=-9 top=53 right=67 bottom=105
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 0
  358. -- font id: 3
  359. -- text size: 9
  360. -- style flags: 0
  361. -- line height: 12
  362. -- part name: UUCP Dial-up
  363. ----- HyperTalk script -----
  364. on mouseUp
  365.   dragOn short name of me
  366. end mouseUp
  367.  
  368.  
  369. -- part 19 (button)
  370. -- low flags: 00
  371. -- high flags: A009
  372. -- rect: left=317 top=256 right=284 bottom=405
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: Done
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   close window short name of this stack
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part 21 (button)
  389. -- low flags: 00
  390. -- high flags: 0000
  391. -- rect: left=431 top=1 right=17 bottom=447
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 22604 / 22604
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: 
  400. ----- HyperTalk script -----
  401. on mouseUp
  402.   callHelp "Sequences Setup"
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part contents for background part 3
  408. ----- text -----
  409. FirstClass Gateway
  410. Listserver
  411. List (All)
  412. FirstClass Gateway
  413.